home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / c++ / xceedbkp.exe / Recovery Wizard / Sources / frmHidden.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  1.5 KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHidden 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Recovery Wizard"
  5.    ClientHeight    =   690
  6.    ClientLeft      =   -11955
  7.    ClientTop       =   -11670
  8.    ClientWidth     =   2250
  9.    Icon            =   "frmHidden.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   690
  14.    ScaleWidth      =   2250
  15. Attribute VB_Name = "frmHidden"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. Option Explicit
  21. Private bForm As Boolean
  22. Private Sub Form_Activate()
  23.     Dim xObjects As New clsXceed
  24.     Dim afrmSteps(0 To 4) As Form
  25.     If Not bForm Then
  26.         bForm = True
  27.         
  28.         Set afrmSteps(0) = frmMain
  29.         Set afrmSteps(1) = frmOne
  30.         Set afrmSteps(2) = frmThree
  31.         Set afrmSteps(3) = frmFour
  32.         Set afrmSteps(4) = frmFive
  33.         
  34.         xObjects.PositionLeft = (Screen.Width - frmMain.Width) / 2
  35.         xObjects.PositionTop = (Screen.Height - frmMain.Height) / 2
  36.         
  37.         Dim nStep As Integer
  38.         Dim nInc As Integer
  39.             
  40.         nStep = 0
  41.         
  42.         Do
  43.             nInc = afrmSteps(nStep).ShowForm(xObjects)
  44.             nStep = nStep + nInc
  45.         Loop Until nInc = 0
  46.                 
  47.         For nStep = 0 To 4
  48.         Unload afrmSteps(nStep)
  49.         Next nStep
  50.         
  51.         Set xObjects = Nothing
  52.     End If
  53. End Sub
  54.